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■Program Title: Plot X then Y, Fixed Point 



1. Purpose ; To plot a step in a bar graph, given the desired number of 

x and y plotter increments (0.01 inch) as fixed point integers. First 
the pen is moved the prescribed number of x units, and then is moved 
the prescribed number of y units. 

2. Restrictions : The numbers X and Y should be consistent with the avail- 
able plotting space. 

3. Kethod 

3.1 This routine utilizes the full word alphanumeric output feature of 
Recorap. Thus, we define 

P +Y - word consisting of eight ^X (22o) plotter commands 

P . X " " " " " =1 ( 21 8* 
P +v » " " » +Y (30 Q ) 

P_ y - . " » » -Y (2li 8 ) 

3.2 If X and Y are both zero return is made immediately. 

3.3 Define ,- /' 

p m \ P -X if X ^° p ( P + Y if Y ^° 

(^ P^ x if X <£ ( P_ Y if Y ^ 

3.U Divide | X | by 8 so that f x/ - 8 q + r where <r -£8. 
Output P x using PNC 7760 command q times. If r fi 
Output P x with PNC 7760 ♦ r command; if r - skip this output. 
Repeat above using J Y \ and P Y 

3«f> For a discussion of the plotter output commands see Recomp Technical 
Bulletin No. 2li, paragraphs U.2 and In 3. 

li. Use : Although by no means necessary, it is intended that one 

ordinarily use the "Floating Point to Plotter Increment Conversion" 
subroutine to convert floating point data to the form required by 
this routine. 

U.l Definition of coordinates: 

When facing the plotter 

+x is the direction a line is drawn when the drum moves down 

-x is the direction a line is drawn when the drum moves up 

+y is the direction a line is drawn when the carriage moves left 

-y is the direction a line is drawn when the carriage moves right 



Program Title: Plot X then Y, Fixed Point Page 2 



li.2 Calling Sequence: With X in A register and Y in R register transfer 
to origin of the subroutine, X and Y must be fixed point integers 
at a binary scale of 39. After line has been plotted return will be 
made to the next location, 

5>. Coding Information 

5.1 Locations used 

This routine occupies £0q locations (from L to L ♦ li7). It 
destroys the L and V loops and all registers. 



5.2 Constants 






L 
o 


+ 


11a 


P *X 




+ 


15 


P -X 




♦ 


16 


P +Y 




♦ 


17 


P -Y 


L 
o 


♦ 


32 


♦7. 






33 


+8. 


5.3 Erasable Locations 



Alphanumeric words, see 3.1 



L ♦ 2h to L + 37 
o o 

5.1a Unused Location 

L + 27 
o 

5.5 This subroutine is relocatable by the method of AN-076 

6. Remark 

It may be desired to change the coordinate system. For this purpose 
it will be noted that the basic pen commands are stored in locations 
L + Hi to L ♦ 17 as follows (refer to £.2 and 3,1). 

Defined Octal Alpha 
Location Coordinate Direction Code Equivalent 

L + 12 +X I 22 L 

13 -X V 21 Z 

1U +Y <— 30 

15 -Y -> ■ 2li H 

(Each of these locations contain a word consisting of eight of the indicated 
plotter commands.) One need only interchange the contents of these locations 
to conform with the desired coordinate system. 
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More specifically, it is to be noted that the contents of the accumulator, 
upon entry to the subroutine, determine the length and direction (positive 
or negative) of the line to be plotted first . The plotter commands stored 
in L ♦ 12, 13 determine the coordinate direction of this plot. Similarly, 
the contents of R specify the length and direction of the line to be plotted 
secondly; and the plotter commands stored in L ♦ Hi, 15 determine the co- 
ordinate direction of this plot. ° 
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+ 
+ 



0000.0 
+ CTL 
CTV 

TO 

+ ADD 
+ CLA 
TPL 
TRA 
XAR 



+ 
+ 
+ 



0010.0 
+ CLA 
CLA 
FST 
CTV 
TYW 
FSB 
XAR 
DIV 



+ 
+ 
+ 
+ 
+ 
+ 
+ 



0020.0 
+ CLA 
+ TMI 
+■ CLA 
+ XAR 
+ CLA 
+ TZE 
+ ADD 
+ CLA 

0030.0 
+ CLA 
+ CTL 
+ CLA 
+ CLA 

- CLA 

- CLA 
+ DIV 
+ FSB 



OOCO.O 
0010.0 
0000.0 

7762. ° 

7760.0 

7766.1 
oooo!o 



777^.0 

o036!o 
0030.0 
2^51 .0 
-IU30.1 

061 4. 
1*512.0 

777M 

llbk.O 

7777.0 

0600.0 

777^.1 
77JO.O 
7762 .0 
0000.0 



otoo.o 

0000.0 
0000.0 
0000.0 
0000.0 

1*512.0 

1430.1 



+ SAX 776O.O 
+ TRA 7763.O 
+ TRA 0000.1 
+ STO OOH7.O 
+ FST 00^.0 
+ CLA 7775.0 
+ CLA 7774.0 
+ TPL 7771 .0 



+■ TRA 
+ PNC 
+ CTL 
+ TRA 
+ TYW 
+ FSB 
+ XAR 
+ DIV 



0020.0 
0020.0 
7760.0 

2U51 ,0 

U30.1 

061*1.0 

4512.0 



+ SUB 7773.0 
+ XAR OCOO.O 
+ PNC 7760.0 
+ TRA 776O.I 
+ EXT 7772. 
+ ALS 0001 .0 
+ STO 7767.0 
- CLA 0000.0 



+ XAR 0000.0 

+ TRA 776I .0 

- CLA 660?. 1 

- CLA OOOS. 
-CLA OOO-'l.O 

- CLA OOOU.O 
+ DIV Upl2.0 
+ FSB 1^30.1 



Paire h 



00^0.0 
+ XAR 
-i- CLA 
+ SUB 
+ CLA 
+ T7Z 
+ ADD 
+ CLA 
+ 70 



0000.0 

7776.0 
7773.0 

7775.1 
7767.1 

7766.0 
0060.0 



+ PNC 776O.O 
+ XAR 6600.0 
+ TPL 776C. 
.-+' EXT 7772.O 
+ ALS 6601 .0 
+ STO 7766.O 
+ PNC 7760.0 
+ TRA 3603.O 



